﻿Public Class CFechaNoLab


Private _fechanolab As Date  
Private _columnas(0) As Object 



Default Property Columnas(ByVal index As Integer )
    Get
        Try
            Return _columnas(index) 
        Catch ex As Exception
            Return Nothing 
        End Try
        
    End Get
    Set(ByVal value)
        Select Case index 
             Case 0
                _fechanolab = value 
             Case else           
        End Select

    End Set
End Property



Public Property Fechanolab() As date
    Get
        Return _fechanolab.ToShortDateString 
    End Get
    Set(ByVal value As date)
        _fechanolab = value.ToShortDateString 
    End Set
End Property


Sub new()
  _fechanolab = Date.Today.ToShortDateString  

End Sub

Sub new(ByVal fechanolab As date)
  _fechanolab = fechanolab.ToShortDateString 

End Sub


End Class
